home *** CD-ROM | disk | FTP | other *** search
/ Hunter 2006 / Hunter 2006.iso / soft / sleipnir241.exe / {app} / scripts / ƒ†[ƒeƒBƒŠƒeƒB / ‹­§“I‚ɕ‚¶‚é.vbs < prev    next >
Text File  |  2006-06-15  |  552b  |  20 lines
  1. '==========================================================
  2. 'Script jin-ren
  3. '  ï¡ÉºôIé╔ò┬é╢éΘ
  4. '  âiârâQü[âgâìâbâNé≡é╡é─éóé─éαï¡ÉºôIé╔ë≡Å£é╡é─ò┬é╢é▄é╖üB
  5. '  òüÆié═ò┬é╢é╚éóüAé┼éαêΩÄ₧ôIé╔ï¡ÉºôIé╔ò┬é╢é╜éóÄ₧é╚é╟é╔ò╓ùÿé┼é╖üB
  6. '
  7. '                                                2002/09/08
  8. '==========================================================
  9. Option Explicit
  10.  
  11. Dim obj, document, id
  12.  
  13. Set obj = CreateObject("Sleipnir.API")
  14. id = obj.GetDocumentID(obj.ActiveIndex)
  15.  
  16. call obj.SetNavigateLock(id,false)
  17. call obj.Close(id)
  18.  
  19. Set obj = Nothing
  20.